home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / LoadDir.RO < prev    next >
Text File  |  1996-09-26  |  440b  |  30 lines
  1. /* 
  2.  
  3.    $VER: LoadDir.RO 0.2
  4.  
  5.    Author:
  6.     Oliver Rummeyer (oliver@rumor.rv.sub.org)
  7.  
  8.    Function:
  9.     Loads the specified directory in the active listview.
  10.  
  11.    Requires:
  12.     RO 0.90 or newer
  13.  
  14.    Example:
  15.     Rx >NIL: REXX:LoadDir.RO System:Devs/DOSDrivers RO.1
  16.  
  17. */
  18.  
  19. PARSE ARG Directory PortName
  20.  
  21. IF PortName="" THEN
  22.  PortName='RO.1'
  23. ELSE
  24.  PortName=STRIP(PortName)
  25.  
  26. ADDRESS VALUE PortName
  27. OPTIONS RESULTS
  28.  
  29. 'Load Active "'||Directory||'"'
  30.